# NOT RUN {
# -----
# Cebotari & Vink (2013, 2015)
data(CVF)
# DEMOC*GEOCON*NATPRIDE
with(CVF, fuzzyand(DEMOC, GEOCON, NATPRIDE))
# same thing with
fuzzyand(CVF[, c(1,3,5)])
# DEMOC*geocon*NATPRIDE
fa <- with(CVF, fuzzyand(DEMOC, 1 - GEOCON, NATPRIDE))
fa
attr(fa, "name")
# ETHFRACT + POLDIS
with(CVF, fuzzyor(ETHFRACT, POLDIS))
# same thing with
fuzzyor(CVF[, c(2,4)])
# ETHFRACT + poldis
fo <- with(CVF, fuzzyor(ETHFRACT, 1 - POLDIS))
fo
attr(fo, "name")
# ETHFRACT + ~POLDIS
fo <- with(CVF, fuzzyor(ETHFRACT, 1 - POLDIS, use.tilde = TRUE))
attr(fo, "name")
# }
Run the code above in your browser using DataLab